home *** CD-ROM | disk | FTP | other *** search
/ Guia CD-ROM 25 / GUIACD25.iso / bht / shared.dir / 01213_Play Through.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  413 b   |  16 lines
  1. on mouseDown
  2.   global gWaitForUser
  3.   puppetTransition(0)
  4.   set lver to the mouseH
  5.   puppetSprite(the clickOn, 1)
  6.   set lHalf to the width of sprite the clickOn / 2
  7.   set lHalfPosition to the left of sprite the clickOn + lHalf
  8.   if lver < lHalfPosition then
  9.     nothing()
  10.   else
  11.     set the castNum of sprite the clickOn to the number of cast "Wait For Me"
  12.     updateStage()
  13.     set gWaitForUser to 0
  14.   end if
  15. end
  16.